Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue38/Dynatab/DYNATAB4.DPR

Text File | 1998-06-01 | 515 b | 25 lines

{$APPTYPE CONSOLE}
program DynaTab4;
uses
  DB, DBTables;
var
  Table: TTable;
  SpeciesNo: TFloatField;
begin
  Table := TTable.Create(nil);
  try
    Table.DatabaseName := 'DBDEMOS';
    Table.TableName := 'BIOLIFE.DB';

    SpeciesNo := TFloatField.Create(Table);
    SpeciesNo.FieldName := 'Species No';
    SpeciesNo.DataSet := Table;

    Table.Open;
    writeln(SpeciesNo.DisplayName,': ',SpeciesNo.DisplayText);
    Table.Close
  finally
    SpeciesNo.Free;
    Table.Free
  end
end.